home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / burf.lha / Burf / Install_Burf < prev    next >
Encoding:
Text File  |  1992-05-14  |  550 b   |  25 lines
  1. /* Install_Burf */
  2. /* Copyright © Michael Tanzer, 1991, 1992 */
  3. /* See additional notices in accompanying documentation */
  4.  
  5. say 'Copying the following file to your rexx: directory...'
  6. say ' '
  7. say '  Burf'
  8. say ' '
  9. say 'Enter ''go'' to continue:'
  10. pull response
  11. if response~='GO' then do
  12.   say 'Installation aborted.'
  13.   exit
  14.   end
  15.  
  16. signal on error
  17. cmdstring = 'COPY "'pragma('D')'/'Burf'" rexx:'
  18. address command cmdstring
  19. say 'Installation complete.'
  20. exit
  21.  
  22. error:
  23.   say 'An error has occurred while copying Burf.'
  24.   say 'Installation terminated.'
  25.   exit